Libris Britannia 4/science library(b).zip/science library(b)/PROGRAMM/DB_CLIPP/0292.ZIP/GENEPROG.ARC/REVIEW.PRG

Text File | 1985-12-21 | 2KB | 56 lines

*SUBROUTINE REVIEW   3/29/85                            REVIEW
*
SET DEVICE TO SCREEN
USE GENE INDEX SNINDX
ENABLE=" "
DO WHILE .NOT.ENABLE="S"
  CLEAR
  CLEAR GETS
  @ 1,5  SAY "LAST          " GET LAST
  @ 1,32 SAY "FIRST  "        GET FIRST
  @ 1,50 SAY "MIDDLE "        GET MIDDLE
  @ 1,70 SAY "NUM "           GET NUM
  @ 2,5  SAY "FULL NAME     " GET FULNAME
  @ 2,45 SAY "SORT NAME "     GET SORTNAME
  @ 3,5  SAY "RESIDENCES    " GET RESIDENCES
  @ 4,5  SAY "BORN          " GET DOB
  @ 4,30 SAY "PLACE "         GET POB
  @ 5,5  SAY "DIED          " GET DOD
  @ 5,30 SAY "PLACE "         GET POD
  @ 6,5  SAY "SPOUSE        " GET SPOUSE
  @ 7,5  SAY "MARRIED       " GET DMAR
  @ 7,30 SAY "PLACE "         GET PMAR
  @ 8,5  SAY "MOTHER        " GET MOTHER
  @ 9,5  SAY "FATHER        " GET FATHER
  @ 10,5 SAY "CHILDREN 1&6  " GET CHILD1
  @ 11,5 SAY "         2&7  " GET CHILD2
  @ 12,5 SAY "         3&8  " GET CHILD3
  @ 13,5 SAY "         4&9  " GET CHILD4
  @ 14,5 SAY "         5&10 " GET CHILD5
  @ 15,5 SAY "SISTERS       " GET SISTERS
  @ 16,5 SAY "BROTHERS      " GET BROTHERS
  @ 17,5 SAY "OCCUPATION    " GET OCCUPATION
  @ 18,5 SAY "CHART         " GET CHART
  @ 18,30 SAY "DESCENDANT "   GET DESCENDANT
  @ 20,5 SAY "CONTINUED     "
  READ
  CLEAR
  @ 10,5 SAY "NOTES         " GET COMM1
  @ 11,5 SAY "              " GET COMM2
  @ 12,5 SAY "              " GET COMM3
  @ 13,5 SAY "              " GET COMM4
  @ 14,5 SAY "              " GET COMM5
  @ 15,5 SAY "REFERENCES    " GET REFERENCE
  @ 16,5 SAY "UPDATED       " GET UPDATE
  @ 22,5 SAY "ENTER S TO END REVIEW OR RETURN TO CONTINUE" GET ENABLE
  READ
  SKIP
ENDDO
CLEAR GETS
CLEAR
RETURN
*END OF SUBROUTINE